1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | CONST Pi = 3.141592653589793#DECLARE SUB MyCircle (x, y, Radius, u1, u2, Stp, Cvet%) SCREEN 12MyCircle 320, 240, 50, 0, Pi / 2, .05, 10 SUB MyCircle (x, y, Radius, u1, u2, Stp, Cvet%) xo = x + COS(u1) * Radius yo = y - SIN(u1) * Radius FOR u = u1 TO u2 STEP Stp xn = x + COS(u) * Radius yn = y - SIN(u) * Radius LINE (xn, yn)-(xo, yo), Cvet% xo = xn: yo = yn NEXTEND SUB |
1 2 3 4 5 6 7 8 | CONST Pi = 3.141592653589793#SCREEN 12r = 100: x = 320: y = 240FOR u = 0 TO 2 * Pi STEP .005 xn = x + COS(u) * r yn = y - SIN(u) * r PSET (xn, yn), 10NEXT |